0 GOSUB60000
5 DIMA$(20),NA$(1000),NI$(100),SE$(100)
10 PRINT"[158]";CHR$(14):POKE53280,15:POKE53281,9
1000 REM RECIPE SUBROUTINE
1010 PRINT"[147]      [215]ELCOME TO THE [210]ECIPE [198]ILES[146]"
1020 PRINT"[208]RESS THE HIGHLIGHTED[146] LETTER TO:":GOTO1030
1025 NA$="":ND$="":KL=0:PRINT"[147][215]HICH?"
1030 PRINT"[215][146]RITE A RECIPE
1035 [153]"(null)WAITIST THE RECIPES ON FILE
1036 PRINT"[209][146]UIT THE PROGRAM"
1040 GETA$:IFA$="" THEN 1040
1045 FORI=1TO3:IFA$<>MID$("WLQ",I,1)THENNEXTI:GOTO1040
1050 M=I:I=3:NEXTI:ONMGOTO1060,1175,2000
1060 NA$="": PRINT"[147]                  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
1061 INPUT"[206]AME OF RECIPE";NA$
1062 IFLEN(NA$)=0THEN1060
1065 OPEN2,8,2,"0:RECIPES,S,R"
1067 INPUT#2,NM$
1070 IFLEN(NM$)=0THEN CLOSE2:GOTO1090
1075 IFNM$=NA$THENCLOSE2:GOTO1085
1077 IFNM$="END"THEN CLOSE2: GOTO 1090
1080 GOTO1067
1085 PRINT"[212]HERE IS ALREADY A RECIPE BY THIS NAME  ON FILE. [195]ONTINUE (Y/N)?"
1086 GETA$:IFA$=""THEN1086
1087 IFA$="N"THEN1025
1088 IFA$<>"Y"THEN1086
1090 FORI=1TON:A$(I)="":NEXTI:N=0
1093 PRINT"    [217]OU MAY TYPE UP TO 15 LINES. [200]IT        RETURN AT THE END OF";
1095 PRINT" EACH LINE.":PRINT"    [213]SE NO PUNCTUATION EXCEPT . AND '       AS ";
1096 PRINT"YOU TYPE. [201]F YOU NEED TO START       OVER, TYPE 'R' (RETURN). [212]O ";
1097 PRINT"END,        HIT RETURN ON AN EMPTY LINE"
1098 PRINT
1100 PRINT"  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
1103 N=N+1:INPUTA$(N)
1105 IF LEN(A$(N))=0  ORN=15THEN1115
1107 IFA$(N)="R"THEN1060
1110 GOTO1100
1115 OPEN15,8,15:PRINT#15,"S8:"+NA$:CLOSE 15
1120 OPEN2,8,2,"0:"+NA$+",S,W"
1125 PRINT#2,NA$:PRINT#2," "
1130 FORI=1 TO N:PRINT#2,A$(I):NEXT I:PRINT#2,"END"
1135 CLOSE 2
1140 K=0:L=0: OPEN2,8,2,"0:RECIPES,S,R"
1145 K=K+1:INPUT#2,D$
1150 IFD$="END"THEN1158
1151 INPUT#2,NA$(K)
1152 IFLEN(NA$(K))=0THEN1158
1155 IFK=VAL(G$)THENNC$=NA$(K):NA$(K)="":K=K-1:G$=""
1156 GOTO1145
1158 IF KL=1THENOPEN15,8,15:PRINT#15,"S8:"+NC$:CLOSE15
1159 CLOSE2:   OPEN15,8,15:PRINT#15,"S8:RECIPES":CLOSE 15
1160 OPEN2,8,2,"0:RECIPES,S,W":Z$="."
1162 FOR I=1TOK:IFNA$(I)=NA$THENL=1
1163 IFLEN(NA$(I))=0THENK=K-1:GOTO1168
1165 PRINT#2,STR$(I)+Z$:PRINT#2,NA$(I)
1166 NEXTI
1167 IF KL=1THEN GOTO1170
1168 IFL<>1 THENPRINT#2,STR$(K+1)+Z$:PRINT#2,NA$
1170 :PRINT#2,"END":CLOSE2: GOTO1600
1175 PRINT"[204]IST OF RECIPES ON FILE:"
1176 OPEN2,8,2,"0:RECIPES,S,R"
1179 INPUT#2,E$:INPUT#2,ND$:IFE$="END"THEN1185
1181 Z$=".":IFE$=M$+Z$THENCLOSE2:GOTO 1205
1182 IFE$<M$+Z$ THEN1179
1183 PRINT"";E$;:PRINT ND$:GOTO1179
1185 CLOSE2
1187 IFND$=""THEN PRINT "[206]ONE ON FILE YET":GOTO1025
1190 PRINT"[210]EAD A RECIPE (Y/N)?"
1192 GETA$:IFA$=""THEN1192
1194 IFA$= "N"THEN1700
1196 IFA$<>"Y"THEN 1192
1200 PRINT"[215]HICH NUMBER";:INPUTM$:GOTO1176
1205 N=0:OPEN2,8,2,"0:"+ND$+",S,R"
1215 N=N+1:INPUT#2,A$(N)
1220 IFA$(N)="END"  THEN1250
1230 GOTO 1215
1250 CLOSE 2
1260 PRINT
1270 FORI=1 TON:PRINT"";A$(I):NEXTI
1300 M$="":PRINT"[208]RINT THIS RECIPE (Y/N)?
1302 [161]A$:[139]A$[178]""[167]1302
1304 [139]A$[178]"N"[167]NA$[178]ND$:[137]1600
1305 [139]A$[179][177]"Y"[167]1302
1308 [153]"(null)URN ON THE PRINTER AND PRESS P TO      PRINT OR N TO STOP"
1310 [161]A$:[139]A$[178]""[167]1310
1312 [139] A$[178]"N"[167]1500
1315 [139]A$[179][177]"P"[167]1310
1320 [160]3 :[159]1,4,4:[157]1:[153][199](27);[199](77);:[160]1:[159]1,4,7:[157]1
1325 [153]"(null)ECIPE FOR: "; ND$:[153]
1330 [129]I[178]2 [164]N[171]1:[153]"";A$(I):[130]I
1350 [160]1:[159]3,3,1:[157]3
1500 [153]"ATNNOTHER COPY (Y/N)?"
1510 [161]A$:[139]A$[178]""[167]1510
1520 [139]A$[178]"N"[167] 1025
1530 [139]A$[179][177]"Y"[167]1510
1540 [153]"CHECK PRINTER AND PRESS P TO PRINT      OR N TO STOP":[137]1310
1600 [153]"LENOPY ON BACKUP DISK (Y/N)?"
1610 [161]A$:[139]A$[178]""[167]1610
1620 [139]A$[178]"N" [167] 1025
1630 [139]A$[179][177]"Y"[167] 1610
1640 [153]"(null)UT BACKUP DISK IN DRIVE AND PRESS PEEK    OR (null) FOR STOP"
1650 [161]A$:[139]A$[178]""[167]1650
1660 [139]A$[178]"N"[167]1025
1670 [139]A$[179][177]"B" [167] 1650
1680 [137]1115
1700 [153]"ONSTR$ELETE A RECIPE (Y/N)?"
1710 [161]A$:[139]A$[178]""[167]1710
1720 [139]A$[178] "N"[167]1025
1730 [139]A$[179][177]"Y"[167] 1710
1740 KL[178]1:[153]"(null)HICH NUMBER";:[133]G$:[137]1140
2000 [153]"LOADLEFT$APPY EATING!":[137]63000
60000 T$[178]"                         ":C[178]0:C$[178]"":[153]"LOAD":[151]53281,0
60030 [153][166]7)""T$:[153][166]7)"      (null)ECIPE ASCILER       WAIT"
60051 [153][166]7)""T$:[153]:[153][163]18)"BY"
60060 [153]:[153][166]14)"STR$ICK LENARON"
60070 [153]:[153][166]12)"LENOPYRIGHT 1985"
60080 [153]:[153]:[153]:[153]"     (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN."
60090 [153]:[153]"  (null)LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 [153]:[153]"      (null)RESS SPACE BAR TO CONTINUE."
60110 [129]CC[178]1[164]48:[161]K$:[139]K$[178]" "[167]60130
60120 [139]CC[178]1[167][153][202](C$,C[170]2,1)"ONON";:C[178][168](C)
60125 [130]:[137]60100
60130 [153]C$:[142]
63000 [143]   CONNECT BACK TO LOADSTAR
63005 [129]DL[178]1[164]3000:[130]
63010 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63020 [151]631,13:[151]632,13:[151]198,2:[128]